Plot and fit distributions of variables

Histogram of Velocity of all

Log distribution, 0’s make up 3% of all data

CC.TotalData <- na.omit(TotalData)
head(CC.TotalData)
10^mean(log10(CC.TotalData$v[CC.TotalData$v>0]))
[1] 0.0348809
sd(log10(CC.TotalData$v[CC.TotalData$v>0]))
[1] 0.5467087

Now we’re going to plot each unique krill and their bimodality with a dip test (less than 0.05 is multimodality)

Starting to look at bimodality in the variables by merging the TotalData frame with the “tab” table

Now looking at turning angles

for (i in 1:length(ind)){
plot(CC.TotalData$turn.angle[CC.TotalData$D_V_T==ind[i]], log10(CC.TotalData$v[CC.TotalData$D_V_T==ind[i]]),
            xlab = "Turn Angles",
     ylab = "Velocity",
          main = "") 
}

NA

save.image("~/Post-doc/Data/Total Merged Data File.RData")
LS0tDQp0aXRsZTogIkNoZWNraW5nIERpc3RyaWJ1dGlvbiBmb3IgVmFyaWFibGVzIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KUGxvdCBhbmQgZml0IGRpc3RyaWJ1dGlvbnMgb2YgdmFyaWFibGVzDQoNCmBgYHtyfQ0KDQpsb2FkKCJDOlxcVXNlcnNcXG5pY29sZWgzXFxEb2N1bWVudHNcXFBvc3QtZG9jXFxEYXRhXFxUb3RhbCBEYXRhIE1lcmdlZCBGaWxlIChTZXAgMjcgMjAyMSkuUmRhIikNCg0KaGlzdChsb2cxMChUb3RhbERhdGEkdiksDQogICAgIHhsYWIgPSAiVmVsb2NpdHkgKExvZ14xMCBtbS9zKSIpDQoNCmBgYA0KDQpIaXN0b2dyYW0gb2YgVmVsb2NpdHkgb2YgYWxsDQoNCkxvZyBkaXN0cmlidXRpb24sIDAncyBtYWtlIHVwIDMlIG9mIGFsbCBkYXRhDQoNCmBgYHtyfQ0KQ0MuVG90YWxEYXRhIDwtIG5hLm9taXQoVG90YWxEYXRhKQ0KaGVhZChDQy5Ub3RhbERhdGEpDQoxMF5tZWFuKGxvZzEwKENDLlRvdGFsRGF0YSR2W0NDLlRvdGFsRGF0YSR2PjBdKSkNCnNkKGxvZzEwKENDLlRvdGFsRGF0YSR2W0NDLlRvdGFsRGF0YSR2PjBdKSkNCg0KYGBgDQpOb3cgd2UncmUgZ29pbmcgdG8gcGxvdCBlYWNoIHVuaXF1ZSBrcmlsbCBhbmQgdGhlaXIgYmltb2RhbGl0eSB3aXRoIGEgZGlwIHRlc3QgKGxlc3MgdGhhbiAwLjA1IGlzIG11bHRpbW9kYWxpdHkpDQoNCmBgYHtyfQ0KaW5kIDwtIHVuaXF1ZShUb3RhbERhdGEkRF9WX1QpDQpwcmludChpbmQpDQpsZW5ndGgoaW5kKQ0KbGlicmFyeShkaXB0ZXN0KQ0KbGlicmFyeShEZXNjVG9vbHMpDQoNCnRhYiA8LSBtYXRyaXgoZGF0YSA9IE5BLCBucm93ID0gMTM1LCBuY29sID01LCBieXJvdyA9IFQpDQpjb2xuYW1lcyh0YWIpIDwtIGMoJ2RpcC50ZXN0JywgJ3NrZXcnLCAnbWVhbi52ZWxvY2l0eScsICdzZC52ZWxvY2l0eScsICdJbmQnKQ0KDQp0YWIgPC0gYXMuZGF0YS5mcmFtZSh0YWIpDQp0YWIkSW5kIDwtIGluZA0KbWVhbi52ZWwgPC0gTlVMTA0Kc2QudmVsIDwtIE5VTEwNCmQudiA8LSBOVUxMDQpzLnYgPC0gTlVMTA0KDQpmb3IgKGkgaW4gMTpsZW5ndGgoaW5kKSl7DQptZWFuLnYgPC0gbWVhbihDQy5Ub3RhbERhdGEkdltDQy5Ub3RhbERhdGEkRF9WX1Q9PWluZFtpXV0pDQpzZC52IDwtIHNkKENDLlRvdGFsRGF0YSR2W0NDLlRvdGFsRGF0YSREX1ZfVD09aW5kW2ldXSkNCg0KbWVhbi52ZWwgPC0gcmJpbmQobWVhbi52ZWwsIG1lYW4udikNCnNkLnZlbCA8LSByYmluZChzZC52ZWwsIHNkLnYpDQoNCg0KdmVscyA8LSAoQ0MuVG90YWxEYXRhJHZbQ0MuVG90YWxEYXRhJERfVl9UPT1pbmRbaV1dKQ0KdmVscyA8LSBsb2cxMCh2ZWxzW3ZlbHM+MF0pDQpkIDwtIGRpcC50ZXN0KHZlbHMpDQpkLnAgPC0gZCRwLnZhbHVlDQpkLnYgPC0gcmJpbmQoZC52LCBkLnApDQoNCnMgPC0gU2tldyh2ZWxzKQ0Kcy52IDwtIHJiaW5kKHMudiwgcykNCiMjfQ0KDQojI2luZCA8LSB1bmlxdWUoQ0MuVG90YWxEYXRhJERfVl9UKQ0KDQojI2ZvciAoaSBpbiAxOmxlbmd0aChpbmQpKXsNCiBoaXN0KGxvZzEwKENDLlRvdGFsRGF0YSR2W0NDLlRvdGFsRGF0YSREX1ZfVD09aW5kW2ldXSksDQogICAgIGJyZWFrcyA9IDUwLA0KICAgICB4bGFiID0gIlZlbG9jaXR5IChMb2deMTAgbW0vcykiLA0KICAgICBtYWluID0gZC5wKSAgIyMgY2hhbmdlIHRvIHMiIHRvIHByaW50IHRoZSBza2V3LXZhbHVlIGFzIHRoZSB0aXRsZSBpbnN0ZWFkDQp9DQoNCnRhYiRza2V3IDwtIHMudg0KdGFiJGRpcC50ZXN0IDwtIGQudg0KdGFiJG1lYW4udmVsb2NpdHkgPC0gKGxvZzEwKG1lYW4udmVsKSkNCnRhYiRzZC52ZWxvY2l0eSA8LSAobG9nMTAoc2QudmVsKSkNCnRhYg0Kd3JpdGUudGFibGUodGFiLCBmaWxlID0gIn4vUG9zdC1kb2MvRGF0YS9kaXAudGVzdC5za2V3LnZlbHMuY3N2Iiwgc2VwID0gIiwiLCBjb2wubmFtZXMgPSBUUlVFKQ0KDQpwbG90KHRhYikNCg0KDQpoZWFkKFRvdGFsRGF0YSkNCnN0cihUb3RhbERhdGEpDQpUb3RhbERhdGEkRmxvdy5yYXRlIDwtIGFzLmZhY3RvcihUb3RhbERhdGEkRmxvdy5yYXRlKQ0KVG90YWxEYXRhJENobG9yb3BoeWxsIDwtIGFzLmZhY3RvcihUb3RhbERhdGEkQ2hsb3JvcGh5bGwpDQoNCmxpYnJhcnkoZ2dwbG90MikNCmdncGxvdChUb3RhbERhdGEsYWVzKHg9Rmxvdy5yYXRlLCB5PXR1cm4uYW5nbGUsIGZpbGw9Q2hsb3JvcGh5bGwpKSsNCiAgZ2VvbV9ib3hwbG90KG5vdGNoPUYsIG5vdGNod2lkdGg9MC4zLG91dGxpZXIuc2hhcGU9MSxvdXRsaWVyLnNpemU9MiwgY29lZj0xLjUpKw0KICB0aGVtZShheGlzLnRleHQ9ZWxlbWVudF90ZXh0KGNvbG9yPSJibGFjayIpKSsNCiAgdGhlbWUoYXhpcy50ZXh0Lng9ZWxlbWVudF90ZXh0KGFuZ2xlPTkwLGhqdXN0PTEsdmp1c3Q9MC40KSkrDQogIHRoZW1lKHBhbmVsLmdyaWQubWlub3I9ZWxlbWVudF9ibGFuaygpKSsNCiAgbGFicyhzaXplPSAiIix4ID0gIkZsb3cgUmF0ZSAoY20vcykiLCB5ID0gIlR1cm4gYW5nbGUgKGRlZ3JlZXMpIiwgdGl0bGUgPSAiICAgICAgICAgICAgICAgTGlnaHQiKSsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzPWMoImdyZWVueWVsbG93IiwgImdyZWVuIiwiZ3JlZW4xIiwgImdyZWVuMiIsICJncmVlbjMiLCAiZ3JlZW40IiksbmFtZSA9ICJDaGxvcm9waHlsbCAobWcvTCkiLA0KICAgICAgICAgICAgICAgICAgICBsYWJlbHM9YygiMCIsICI0LjYiLCAiNi4xIiwgIjcuNiIsICIxMy41IiwgIjE5IikpKw0KICBmYWNldF9ncmlkKH5MaWdodCwgc2NhbGVzID0gImZyZWVfeCIsIHNwYWNlID0gImZyZWUiKQ0KYGBgDQoNCg0KU3RhcnRpbmcgdG8gbG9vayBhdCBiaW1vZGFsaXR5IGluIHRoZSB2YXJpYWJsZXMgYnkgbWVyZ2luZyB0aGUgVG90YWxEYXRhIGZyYW1lIHdpdGggdGhlICJ0YWIiIHRhYmxlDQpgYGB7cn0NCiMjYWdyZWdhdGluZyBDb21wbGV0ZSBjYXNlcyBvZiBUb3RhbERhdGEgc28gd2UgY2FuIG1lcmdlIGl0IHdpdGggdGFiIGRhdGENCg0KQUdHX1REIDwtIGFnZ3JlZ2F0ZShUb3RhbERhdGEsIGJ5ID0gbGlzdChUb3RhbERhdGEkRF9WX1QpLCBGVU4gPSBtZWFuKQ0KaGVhZChBR0dfVEQpDQpBR0dfVEQgPC0gQUdHX1REWyAtYygyOjMsIDg6MTApIF0NCmNvbG5hbWVzKEFHR19URCkgPC0gYygiSW5kIiwgIlgiLCAiWSIsICJaIiwgIlRyYWNrIiwgIkZsb3cuUmF0ZSIsICJDaGxvcm9waHlsbCIsICJHdWFubyIsICJMaWdodCIsICJkeCIsICJkeSIsICJkeiIsICJkIiwgInZ4IiwgInZ5IiwgInZ6IiwgInYiLCAiaGVhZGluZyIsICJwaXRjaCIsICJ0dXJuYW5nbGUueHkiLCAidHVybmFuZ2xlLnl6IiwgInR1cm4uYW5nbGUiKQ0KaGVhZChBR0dfVEQpDQp0YWlsKEFHR19URCkNCg0KDQp0YWJfQUdHIDwtIG1lcmdlKEFHR19URCwgdGFiLCBieSA9ICJJbmQiKQ0KaGVhZCh0YWJfQUdHKQ0Kc3RyKHRhYl9BR0cpDQp0YWJfQUdHJEZsb3cuUmF0ZSA8LSBhcy5mYWN0b3IodGFiX0FHRyRGbG93LlJhdGUpDQp0YWJfQUdHJENobG9yb3BoeWxsIDwtIGFzLmZhY3Rvcih0YWJfQUdHJENobG9yb3BoeWxsKQ0KdGFiX0FHRyRHdWFubyA8LSBhcy5mYWN0b3IodGFiX0FHRyRHdWFubykNCnRhYl9BR0ckTGlnaHQgPC0gYXMuZmFjdG9yKHRhYl9BR0ckTGlnaHQpDQoNCg0KZnJlcSA8LSB0YWJsZSh0YWJfQUdHJEZsb3cuUmF0ZSwgdGFiX0FHRyRDaGxvcm9waHlsbCkNCnByaW50KGZyZXEpDQpwcm9iIDwtIHByb3AudGFibGUoZnJlcSkgIyNSZWxhdGl2ZSBGcmVxdWVuY3kgVGFibGUNCnByaW50IChwcm9iKQ0KDQogIyNzdGFydGluZyB0byBwbG90IHRoZSBkaXAgdGVzdCBhbmQgc2tldyBpbiB0aGUgdmFyaWFibGVzDQpwbG90KHRhYl9BR0ckRmxvdy5SYXRlLCB0YWJfQUdHJGRpcC50ZXN0LCB4bGFiID0gIkZsb3cgUmF0ZSAoY20vcykiLCB5bGFiID0gIkRpcCBUZXN0IChwLnZhbHVlKSIpDQpwbG90KHRhYl9BR0ckRmxvdy5SYXRlLCB0YWJfQUdHJHNrZXcsIHhsYWIgPSAiRmxvdyBSYXRlIChjbS9zKSIsIHlsYWIgPSAiU2tldyBUZXN0IChwLnZhbHVlKSIpDQpwbG90KHRhYl9BR0ckQ2hsb3JvcGh5bGwsIHRhYl9BR0ckZGlwLnRlc3QsIHhsYWIgPSAiQ2hsb3JvcGh5bGwgKG1nL0wpIiwgeWxhYiA9ICJEaXAgVGVzdCAocC52YWx1ZSkiKQ0KcGxvdCh0YWJfQUdHJENobG9yb3BoeWxsLCB0YWJfQUdHJHNrZXcsIHhsYWIgPSAiQ2hsb3JvcGh5bGwgKG1nL0wpIiwgeWxhYiA9ICJTa2V3IFRlc3QgKHAudmFsdWUpIikNCg0KbGlicmFyeShnZ3Bsb3QyKQ0KZ2dwbG90KHRhYl9BR0csYWVzKHg9Rmxvdy5SYXRlLCB5PXNrZXcsIGZpbGw9Q2hsb3JvcGh5bGwpKSsNCiAgZ2VvbV9ib3hwbG90KG5vdGNoPUYsIG5vdGNod2lkdGg9MC41LG91dGxpZXIuc2hhcGU9MSxvdXRsaWVyLnNpemU9MiwgY29lZj0xLjUpKw0KICB0aGVtZShheGlzLnRleHQ9ZWxlbWVudF90ZXh0KGNvbG9yPSJibGFjayIpKSsNCiAgdGhlbWUoYXhpcy50ZXh0Lng9ZWxlbWVudF90ZXh0KGFuZ2xlPTkwLGhqdXN0PTEsdmp1c3Q9MC40KSkrDQogIHRoZW1lKHBhbmVsLmdyaWQubWlub3I9ZWxlbWVudF9ibGFuaygpKSsNCiAgbGFicyhzaXplPSAiIix4ID0gIkZsb3cgUmF0ZSAoY20vcykiLCB5ID0gIlNrZXcgKHAgdmFsdWUpIiwgdGl0bGUgPSAiIikrDQogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1jKCJncmVlbnllbGxvdyIsICJncmVlbiIsImdyZWVuMSIsICJncmVlbjIiLCAiZ3JlZW4zIiwgImdyZWVuNCIpLG5hbWUgPSAiQ2hsb3JvcGh5bGwgKG1nL0wpIiwNCiAgICAgICAgICAgICAgICAgICAgbGFiZWxzPWMoIjAiLCAiNC42IiwgIjYuMSIsICI3LjYiLCAiMTMuNSIsICIxOSIpKSAgDQogIyMgKyBmYWNldF9ncmlkKH5MaWdodCwgc2NhbGVzID0gImZyZWVfeCIsIHNwYWNlID0gImZyZWUiKQ0KDQpgYGANCg0KTm93IGxvb2tpbmcgYXQgdHVybmluZyBhbmdsZXMNCg0KYGBge3J9DQpUb3RhbERhdGEkdHVybi5hbmdsZXh5IDwtIGF0YW4yKFRvdGFsRGF0YSRYLCBUb3RhbERhdGEkWSkNClRvdGFsRGF0YSR0dXJuLmFuZ2xleXogPC0gYXRhbjIoVG90YWxEYXRhJFksIFRvdGFsRGF0YSRaKQ0KDQoNCmx0aCA8LSBkaW0oVG90YWxEYXRhKVsxXQ0KZHgxIDwtIFRvdGFsRGF0YSRkeFsxOihsdGgtMSldDQpkeDIgPC0gVG90YWxEYXRhJGR4WzI6bHRoXQ0KZHkxIDwtIFRvdGFsRGF0YSRkeVsxOihsdGgtMSldDQpkeTIgPC0gVG90YWxEYXRhJGR5WzI6bHRoXQ0KZHoxIDwtIFRvdGFsRGF0YSRkelsxOihsdGgtMSldDQpkejIgPC0gVG90YWxEYXRhJGR6WzI6bHRoXQ0KRCA8LSAoZHgxKmR4MikrKGR5MSpkeTIpKyhkejEqZHoyKQ0KZDEgPC0gc3FydChkeDFeMiArIGR5MV4yICtkejFeMikNCmQyIDwtIHNxcnQoZHgyXjIgKyBkeTJeMiArZHoyXjIpDQoNCmRkIDwtIEQvZDEvZDINCmhpc3QoYWNvcyhkZCkvcGkqMTgwKQ0KDQpUb3RhbERhdGEkdHVybi5hbmdsZSA8LSBjKE5BLCBhY29zKEQvZDEvZDIpKS9waSoxODANCkNDLlRvdGFsRGF0YSA8LSBuYS5vbWl0KFRvdGFsRGF0YSkNCmhlYWQoQ0MuVG90YWxEYXRhKQ0KdGFpbChDQy5Ub3RhbERhdGEpDQpzdHIoQ0MuVG90YWxEYXRhKQ0KQ0MuVG90YWxEYXRhJEZsb3cucmF0ZSA8LSBhcy5mYWN0b3IoQ0MuVG90YWxEYXRhJEZsb3cucmF0ZSkNCkNDLlRvdGFsRGF0YSRDaGxvcm9waHlsbDwtIGFzLmZhY3RvcihDQy5Ub3RhbERhdGEkQ2hsb3JvcGh5bGwpDQoNCmluZCA8LSB1bmlxdWUoQ0MuVG90YWxEYXRhJERfVl9UKQ0KDQpmb3IgKGkgaW4gMTpsZW5ndGgoaW5kKSl7DQpoaXN0KENDLlRvdGFsRGF0YSR0dXJuLmFuZ2xlW0NDLlRvdGFsRGF0YSREX1ZfVD09aW5kW2ldXSwNCiAgICAgICBicmVha3MgPSA1MCwNCiAgICAgeGxhYiA9ICJUdXJuIEFuZ2xlcyIsDQogICAgIG1haW4gPSAiIikgDQp9DQoNCnBsb3QoQ0MuVG90YWxEYXRhJEZsb3cucmF0ZSwgQ0MuVG90YWxEYXRhJHR1cm4uYW5nbGUsIG1haW4gPSAiIiwgeGxhYiA9ICJGbG93IFJhdGUgKGNtL3MpIiwgeWxhYiA9ICJUdXJuIGFuZ2xlIChkZWdyZWVzKSIpDQpwbG90KENDLlRvdGFsRGF0YSRDaGxvcm9waHlsbCwgQ0MuVG90YWxEYXRhJHR1cm4uYW5nbGUsIG1haW4gPSAiIiwgeGxhYiA9ICJDaGxvcm9waHlsbCAobWcvTCkiLCB5bGFiID0gIlR1cm4gYW5nbGUgKGRlZ3JlZXMpIikNCg0KYGBgDQoNCg0KDQpgYGB7cn0NCmZvciAoaSBpbiAxOmxlbmd0aChpbmQpKXsNCnBsb3QoQ0MuVG90YWxEYXRhJHR1cm4uYW5nbGVbQ0MuVG90YWxEYXRhJERfVl9UPT1pbmRbaV1dLCBsb2cxMChDQy5Ub3RhbERhdGEkdltDQy5Ub3RhbERhdGEkRF9WX1Q9PWluZFtpXV0pLA0KICAgICAgICAgICAgeGxhYiA9ICJUdXJuIEFuZ2xlcyIsDQogICAgIHlsYWIgPSAiVmVsb2NpdHkiLA0KICAgICAgICAgIG1haW4gPSAiIikgDQp9DQoNCmBgYA0KDQoNCmBgYHtyfQ0Kc2F2ZS5pbWFnZSgifi9Qb3N0LWRvYy9EYXRhL1RvdGFsIE1lcmdlZCBEYXRhIEZpbGUuUkRhdGEiKQ0KDQpgYGANCg0KDQoNCg==